# sessionInfo()
library(leaflet)
library(leaflet.extras)
library(sf)
poly <- read_sf(file.choose())
leaflet() %>%
addTiles(group = "StreetMap") %>%
setView(lng = -77, lat = -12, zoom = 5) %>%
addMarkers(lng = -77.02824, lat = -12.04318, group = "Markers") %>%
addPolygons(
data = poly,
color = "orange", stroke = .5,
popup = poly$DEPARTAMEN
) %>%
addLayersControl(
baseGroups = c("StreetMap"),
overlayGroups = c("Markers"),
position = "topright"
) %>%
addDrawToolbar()